Program Pzim ; var n,i:integer; esc:string; Begin writeln('Que tabuada quer?'); readln(n); i:=1; while i<11 do begin writeln(n,'*',i,'=',n*i); i:=i+1; end; End.